home *** CD-ROM | disk | FTP | other *** search
/ Study Abroad in Canada / Study Abroad in Canada.iso / pc / open.dxr / ÉÄÅ[ÉrÅ[_1_mpeg volume.ls < prev    next >
Encoding:
Text File  |  2000-08-21  |  529 b   |  30 lines
  1. on beginSprite me
  2.   case the soundLevel of
  3.     0:
  4.       setvolume(sprite(19), -100)
  5.     1, 2:
  6.       setvolume(sprite(19), -15)
  7.     3, 4:
  8.       setvolume(sprite(19), -10)
  9.     5, 6:
  10.       setvolume(sprite(19), -5)
  11.     7:
  12.       setvolume(sprite(19), 0)
  13.   end case
  14. end
  15.  
  16. on exitFrame me
  17.   case the soundLevel of
  18.     0:
  19.       setvolume(sprite(19), -100)
  20.     1, 2:
  21.       setvolume(sprite(19), -15)
  22.     3, 4:
  23.       setvolume(sprite(19), -10)
  24.     5, 6:
  25.       setvolume(sprite(19), -5)
  26.     7:
  27.       setvolume(sprite(19), 0)
  28.   end case
  29. end
  30.